Does + Eigen gene mean + overal module gene expression?

library(tidyverse)
── Attaching packages ────────────────────────────────────────────────────────────── tidyverse 1.2.1 ──
✔ ggplot2 3.1.1       ✔ purrr   0.3.2  
✔ tibble  2.1.1       ✔ dplyr   0.8.0.1
✔ tidyr   0.8.3       ✔ stringr 1.4.0  
✔ readr   1.3.1       ✔ forcats 0.4.0  
package ‘ggplot2’ was built under R version 3.5.2package ‘tibble’ was built under R version 3.5.2package ‘tidyr’ was built under R version 3.5.2package ‘purrr’ was built under R version 3.5.2package ‘dplyr’ was built under R version 3.5.2package ‘stringr’ was built under R version 3.5.2package ‘forcats’ was built under R version 3.5.2── Conflicts ───────────────────────────────────────────────────────────────── tidyverse_conflicts() ──
✖ dplyr::filter() masks stats::filter()
✖ dplyr::lag()    masks stats::lag()
library(WGCNA)
package ‘WGCNA’ was built under R version 3.5.2Loading required package: dynamicTreeCut
Loading required package: fastcluster

Attaching package: ‘fastcluster’

The following object is masked from ‘package:stats’:

    hclust



Attaching package: ‘WGCNA’

The following object is masked from ‘package:stats’:

    cor
load("../output/WGCNA_UN_all.Rdata")
expr <- expr.data.UN.t %>% 
  scale() %>%
  t() %>%
  as.tibble() %>%
  mutate(color=merge$colors,
         ID=colnames(expr.data.UN.t)) %>%
  select(ID, color, everything())
`as.tibble()` is deprecated, use `as_tibble()` (but mind the new semantics).
This warning is displayed once per session.
expr[1:10, 1:10]
expr_MEs <- MEs %>% 
  scale() %>% 
  t()  %>% 
  as.data.frame() %>% 
  rownames_to_column("ID") %>% 
  mutate(color=str_sub(ID, 3)) %>%
  select(ID, color, everything()) %>%
  bind_rows(., expr) %>%
  mutate(type=ifelse(str_detect(ID, "^ME"), "eigen", "gene")) %>%
  select(ID, color, type, everything())
expr_MEs
map(unique(expr_MEs$color), function(x) {
  expr_MEs %>%
    filter(color==x) %>%
    gather(key = "RIL", value="expression", -ID, -color, -type) %>%
    ggplot(aes(x=RIL, y=expression, group=ID, alpha=type, color=type )) +
    geom_line() +
    scale_alpha_manual(values = c("eigen" = 1, "gene" = 0.05)) +
    scale_color_manual(values = c("eigen" = "red", "gene" = "black")) +
    ggtitle(color)
})
[[1]]

[[2]]

[[3]]

[[4]]

[[5]]

[[6]]

[[7]]

[[8]]

[[9]]

[[10]]

[[11]]

[[12]]

[[13]]

[[14]]

[[15]]

[[16]]

[[17]]

[[18]]

[[19]]

[[20]]

[[21]]

[[22]]

[[23]]

[[24]]

[[25]]

[[26]]

[[27]]

[[28]]

[[29]]

[[30]]

[[31]]

[[32]]

[[33]]

[[34]]

[[35]]

[[36]]

[[37]]

[[38]]

[[39]]

[[40]]

[[41]]

[[42]]

[[43]]

[[44]]

[[45]]

[[46]]

[[47]]

[[48]]

[[49]]

[[50]]

LS0tCnRpdGxlOiAiRWlnZW4gZ2VuZS9tb2R1bGUgY29ycmVsYXRpb24iCm91dHB1dDogaHRtbF9ub3RlYm9vawotLS0KCkRvZXMgKyBFaWdlbiBnZW5lIG1lYW4gKyBvdmVyYWwgbW9kdWxlIGdlbmUgZXhwcmVzc2lvbj8KCmBgYHtyfQpsaWJyYXJ5KHRpZHl2ZXJzZSkKbGlicmFyeShXR0NOQSkKbG9hZCgiLi4vb3V0cHV0L1dHQ05BX1VOX2FsbC5SZGF0YSIpCmBgYAoKYGBge3J9CmV4cHIgPC0gZXhwci5kYXRhLlVOLnQgJT4lIAogIHNjYWxlKCkgJT4lCiAgdCgpICU+JQogIGFzLnRpYmJsZSgpICU+JQogIG11dGF0ZShjb2xvcj1tZXJnZSRjb2xvcnMsCiAgICAgICAgIElEPWNvbG5hbWVzKGV4cHIuZGF0YS5VTi50KSkgJT4lCiAgc2VsZWN0KElELCBjb2xvciwgZXZlcnl0aGluZygpKQpleHByWzE6MTAsIDE6MTBdCmBgYAoKYGBge3J9CmV4cHJfTUVzIDwtIE1FcyAlPiUgCiAgc2NhbGUoKSAlPiUgCiAgdCgpICAlPiUgCiAgYXMuZGF0YS5mcmFtZSgpICU+JSAKICByb3duYW1lc190b19jb2x1bW4oIklEIikgJT4lIAogIG11dGF0ZShjb2xvcj1zdHJfc3ViKElELCAzKSkgJT4lCiAgc2VsZWN0KElELCBjb2xvciwgZXZlcnl0aGluZygpKSAlPiUKICBiaW5kX3Jvd3MoLiwgZXhwcikgJT4lCiAgbXV0YXRlKHR5cGU9aWZlbHNlKHN0cl9kZXRlY3QoSUQsICJeTUUiKSwgImVpZ2VuIiwgImdlbmUiKSkgJT4lCiAgc2VsZWN0KElELCBjb2xvciwgdHlwZSwgZXZlcnl0aGluZygpKQpleHByX01FcwpgYGAKCmBgYHtyfQptYXAodW5pcXVlKGV4cHJfTUVzJGNvbG9yKSwgZnVuY3Rpb24oeCkgewogIGV4cHJfTUVzICU+JQogICAgZmlsdGVyKGNvbG9yPT14KSAlPiUKICAgIGdhdGhlcihrZXkgPSAiUklMIiwgdmFsdWU9ImV4cHJlc3Npb24iLCAtSUQsIC1jb2xvciwgLXR5cGUpICU+JQogICAgZ2dwbG90KGFlcyh4PVJJTCwgeT1leHByZXNzaW9uLCBncm91cD1JRCwgYWxwaGE9dHlwZSwgY29sb3I9dHlwZSApKSArCiAgICBnZW9tX2xpbmUoKSArCiAgICBzY2FsZV9hbHBoYV9tYW51YWwodmFsdWVzID0gYygiZWlnZW4iID0gMSwgImdlbmUiID0gMC4wNSkpICsKICAgIHNjYWxlX2NvbG9yX21hbnVhbCh2YWx1ZXMgPSBjKCJlaWdlbiIgPSAicmVkIiwgImdlbmUiID0gImJsYWNrIikpICsKICAgIGdndGl0bGUoeCkKfSkKYGBgCgo=